object frmoprg: Tfrmoprg Left = 366 Top = 274 BorderStyle = bsDialog Caption = 'O programu' ClientHeight = 250 ClientWidth = 330 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label10: TLabel Left = 112 Top = 48 Width = 96 Height = 20 Caption = 'Nahr'#225'v'#225' se...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Gauge1: TGauge Left = 8 Top = 104 Width = 313 Height = 25 ForeColor = clBlue Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Progress = 0 end object Button1: TButton Left = 128 Top = 216 Width = 65 Height = 25 Caption = '&Zav'#345#237't' TabOrder = 0 OnClick = Button1Click end object Memo1: TMemo Left = 152 Top = 144 Width = 121 Height = 49 Lines.Strings = ( 'BOSS HTML CODE' 'Copyright 2000-2005 ' 'Jan Dlouh'#253 '' 't'#237'mto bych cht'#283'l ' 'pod'#283'kovat:' '' 'Autor'#367'm knih jak ' 'programovat v Delphi:' '-Slavoj P'#237'sek' '-V'#225'clav Kadlec' '' 'A hlavn'#283' za trp'#283'livost a ' 'hodn'#283' tip'#367' panu:' '-Josefu Kasalovi') TabOrder = 1 Visible = False end object Panel2: TPanel Left = 64 Top = 72 Width = 201 Height = 97 Color = clBlack TabOrder = 2 Visible = False object PaintBox1: TPaintBox Left = 1 Top = 1 Width = 199 Height = 95 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end end object Panel1: TPanel Left = 8 Top = 16 Width = 313 Height = 185 BevelOuter = bvNone TabOrder = 3 object Bevel1: TBevel Left = 0 Top = 0 Width = 313 Height = 81 end object Label1: TLabel Left = 16 Top = 4 Width = 285 Height = 37 Caption = 'BOSS HTML CODE' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -33 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image1: TImage Left = 16 Top = 40 Width = 33 Height = 33 Picture.Data = {} OnMouseUp = Image1MouseUp end object Image2: TImage Left = 264 Top = 40 Width = 33 Height = 33 Picture.Data = {} end object Label2: TLabel Left = 64 Top = 40 Width = 190 Height = 16 Caption = 'Copyright 2000-2005 Jan Dlouh'#253 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Microsoft Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 120 Top = 64 Width = 65 Height = 16 Caption = 'Verze: 1.70' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Bevel2: TBevel Left = 0 Top = 88 Width = 313 Height = 97 end object Label4: TLabel Left = 70 Top = 105 Width = 190 Height = 16 Caption = 'Nav'#353'tivte autorovu www str'#225'nku:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 104 Top = 120 Width = 117 Height = 13 Cursor = crHandPoint Caption = 'www.bosssoftworks.com' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = Label7Click end object Label6: TLabel Left = 72 Top = 136 Width = 188 Height = 16 Caption = 'Va'#353'e dotazy a n'#225'pady pi'#353'te na:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 104 Top = 152 Width = 128 Height = 13 Cursor = crHandPoint Caption = 'bosssoftworks@seznam.cz' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = Label9Click end end object Timer1: TTimer Enabled = False Interval = 6100 OnTimer = Timer1Timer Left = 24 Top = 216 end object Timer2: TTimer Enabled = False Interval = 50 OnTimer = Timer2Timer Left = 232 Top = 216 end object Timer3: TTimer Enabled = False Interval = 5800 OnTimer = Timer3Timer Left = 272 Top = 216 end end